home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / oper_sys / fp / ifp_unix.lzh / ifp / fproot / demo / Fib < prev    next >
Encoding:
Text File  |  1986-10-03  |  195 b   |  16 lines
  1. (*
  2.  * Compute nth fibonacci number
  3.  *
  4.  * Examples:
  5.  *
  6.  *    6 : Fib -> 8
  7.  *    7 : Fib -> 13
  8.  *    8 : Fib -> 21
  9.  *)
  10.  
  11. DEF Fib AS 
  12.    IF [id,#2] | < THEN id
  13.    ELSE
  14.       sub1 | [Fib,sub1|Fib] | +
  15.    END;
  16.